﻿Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.ComponentModel

Namespace SRAGWM
    Public Class DataSource

        Dim _DBName, _DB, _Table As String
        Dim _Atributes()

        Property DBName() As String
            Get
                Return _DBName
            End Get
            Set(ByVal value As String)
                _DBName = value
            End Set
        End Property
        Property DB() As String
            Get
                Return _DB
            End Get
            Set(ByVal value As String)
                _DB = value
            End Set
        End Property
        Property Table() As String
            Get
                Return _Table
            End Get
            Set(ByVal value As String)
                _Table = value
            End Set
        End Property
        Property Atributes()
            Get
                Return _Atributes
            End Get
            Set(ByVal value)
                _Atributes = value
            End Set
        End Property

        Public Sub New(ByVal pDBName As String, ByVal pDB As String, ByVal pTable As String, _
                       ByVal pAtributes As Object)

            _DBName = pDBName
            _DB = pDB
            _Table = pTable
            _Atributes = pAtributes

        End Sub

    End Class
End Namespace

